home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)te.d64 / dir.proc < prev    next >
Text File  |  2009-01-03  |  318b  |  17 lines
  1. 9000 //
  2. 9010 PROC DIR(NAME$,DEVICE) CLOSED
  3. 9020 TRAP ESC-
  4. 9030 FOR X:=1 TO LEN(NAME$) DO
  5. 9040 POKE 834+X,ORD(NAME$(X))
  6. 9050 ENDFOR X
  7. 9060 POKE 26997,X
  8. 9070 POKE 27013,DEVICE
  9. 9080 POKE 27110,96
  10. 9090 SYS 26996
  11. 9100 POKE 27110,76
  12. 9110 POKE 26997,1
  13. 9120 POKE 27013,8
  14. 9130 WHILE ESC DO NULL
  15. 9140 TRAP ESC+
  16. 9150 ENDPROC DIR
  17.